home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
system
/
bootslow.zip
/
SOURCE.ZIP
/
BOOTSEC.ASM
< prev
next >
Wrap
Assembly Source File
|
1991-08-06
|
2KB
|
79 lines
;
;; SlowDown for self-booting software
;;
;; BOOTSLOW
;;
;; Copyright 1991 Alexander R. Pruss
;;
;; May be freely distributed, modified and used provided that no copyright
;; messages are removed, and this sentence together with the next two are
;; always included in unmodified form. If you like this program a lot, you are
;; invited to show your appreciation by making a tax-deductible donation to
;; the Pro-Life or Anti-Abortion movement, but are under no obligation, moral
;; or otherwise to do so (especially if you disagree with the goals of this
;; movement.) There is no warranty; use at own risk.
;
include macros.inc
c segment
assume CS:c,DS:c
mov ax,07c0h
cli
mov ss,ax
mov sp,0400h
sti
mov ds,ax
push ax
mov ax,offset continue
push ax
retf
continue:
Puts copyright
tryagain:
Puts drive_q
g:
Getch
or al,TOLOWER
cmp al,'a'
jb g
cmp al,'z'
ja g
sub al,'a'
mov dl,al
Clear ax
mov es,ax
Clear dh
push dx
Clear bx
mov ax,0302h
mov cx,0002h
int 13h
jc diskerror
Puts done
stop: jmp stop
diskerror:
Puts i13error
jmp tryagain
_puts proc near
top:
Stat cx
jz exit
lodsb
mov ah,TTYWrite
mov bx,0007h
int 10h
loop top
exit:
ret
_puts endp
String copyright, <'Interrupt table recorder.', CR,LF, '(C) Copyright 1991 Alexander Pruss', CR,LF>
String drive_q, <'Choose physical floppy drive to save to: (A,B,etc.)', CR,LF>
String i13error, <'Low level disk error.',CR,LF,'Try again, or reboot with Ctrl-Alt-Del.', CR,LF>
String done, <'Saved!', CR,LF, 'Remove this disk and reboot with Ctrl-Alt-Del.', CR,LF>
c ends
end